#!/usr/local/bin/perl -w

use Test::More qw(no_plan);
use lib "./lib";
use lib "../lib";

BEGIN {
   use_ok("Devel::Metadata");
}

my ($dmd, @distributions);

$dmd = Devel::Metadata->new();
@distributions = $dmd->distributions();
print join("\n", sort @distributions), "\n";

exit 0;

